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NODULE FORSREWIND ¢ | FORTRAN REWIND Statemen | 

IDENT = "1-007" | File: FORREWIND.B t edit SBL1007 | 


BEGIN 


' 
LRA AERA RERERE EERE EEE AEA AERA ERATE AAA AERA 


is COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
' DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
't ALL RIGHTS RESERVED. 


'® THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND gt 
N CCORDANCE 0 ND WITH THE 


® 
® 
® 
aw 
® 
® 
* 
® 
i 0 . 
ie OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
is TRANSFERRED. * 
! * 
it THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
® 
® 
® 
® 
® 
* 
® 
® 


!® AND SHOULD BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
'® CORPORATION. 


!* DIGITAL ASSUMES NO RESPONSIB 


IBILITY FOR THE USE OR RELIABILITY OF ITS 
'® SOFTWARE ON EQUIPMENT WHICH | 


T 
NOT SUPPLIED BY DIGITAL. 


MNMNMNMNININ 3 2 2 PS OS SOOO OOCCOO 


WN O CONAUEWN (SO OONAULS WN OOONOULS WN OODONOUS Wh 


i! 
Lee RRR R EAA EATER 
' 


'+¢ 
! FACILITY: FORTRAN Support Library, user callable 
| ABSTRACT: 


Contains routine FORSREWIND: rewind a FORTRAN sequential | 
access file. 


i ENVIRONMENT: Mixture of AST Level or not. 
i AUTHOR: Jonathan M. Taylor, CREATION DATE: 10-OCT-77 
{| MODIFIED BY: 


Jonathan M. Taylor, 10-OCT-77 : VERSION 0 
ous edit history removed. SBL 16-Jjune-1982 
| 


So 
Cooo°o 
, at 


44 


es version number and copyr} + ag bg JBS 16-NOV-78 
Change REQUIRE file names from FOR... to OTS... JBS 06-DEC-78 
Change prefix of LUN Literals from OPEN to LUB. JBS 15-DEC-78 
Implement ERR= and IOSTAT=. SBL 11-May-1979 
Error pnetend of nonce on not open or direct. SBL Mate Made 
1-005 is am istake. o-op if not o on. rror if not 
sequential org 30 one, ggcens. SBL 16- oye 7 
- hy errors RMS$ RMS$_BOF and RMS$_EOF from SREWIND. 
Move declaration at ORCTUALCOUNT.. Add SWITCHES. SBL 16-June-1982 | 
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SWITCHES: 


SWITCHES ADDRESSING_MODE (EXTERNAL = GENERAL, NONEXTERNAL = WORD_RELATIVE); 


LINKAGES: 
REQUIRE "RTLIN-OTSLNK'; 


; TABLE OF CONTENTS: 


FORWARD ROUTINE 
FORSREWIND; 


INCLUDE FILES: 


REQUIRE ‘RTLML:FORERR'; 
REQUIRE 'RTLML:OTSLUB'; 


REQUIRE ‘RTLML:OTSISB'; 
REQUIRE ‘RTLML:FORPAR'; 
, LIBRARY ‘RTLSTARLE'; 


i MACROS: 
i NONE 


i EQUATED SYMBOLS: 
i NONE 


i OWN STORAGE: 
i NONE 


1 

EXTERNAL REFERENCES: 

EXTERNAL ROUTINE 
FORSSIOSTAT_HND, 
FORS$$SIGNAL~STO: NOV 
FORS$CB_PUSA: JSB_CB 


FORS$CB_POP: JSB_CB_POP NOVALUE; 


PSECT DECLARATIONS: 


DECLARE_PSECTS (FOR); 


! Define all Linkages 


FORTRAN REWIND statement processor 


FORTRAN error number definitions 
Logical Unit Block definitiuns 


ros 
ine DECLARE_PSECTS macro 

ISB definitions 

FORTRAN inter-module parameters 
STARLET Library for macros and symbols 


! error condition handler | 
' convert error number and sig 
! create LUB/ISB/RAB, 7 
' return I/0 system to previous state 


! declare PSECTS for FORS facility 


H 13 
e-8ep-1986 92:93:60 ERORnTL SRE SFO 


2 V4.0-74 
RREWIND.B52;1 


GLOBAL ROUTINE FORSREWIND ( 
ERR_EQL) 


te 
FUNCTIONAL DESCRIPTION: 


Perform RMS rewind operation on the file specified by the 
UNIT parameter. 


FORMAL PARAMETERS: 


UNIT. rlu.v Logical unit number 
ERR_EQL.rl.v if 0 or not present, signal errors 


non-zero, unwind to caller. 
IMPLICIT INPUTS: 
LUBSV_DIRECT This unit has previously been specified 
for direct access by an OPEN statement or 
DEFINE FILE. 


' 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
' 
' 
' 
an OPEN statement or default open. 
i 
' 
! 
! 
i 
i 
i 
i 
i 
i 
i 
i 
i 
ie 
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ey 1223 1 

is 1226 (1 

= 1558 

: 1337 

s 4 1 § 1 

RS 1230 1 

‘7% 1231 1 

3s 7 1 ¢ 1 

°% 1 1 

3 1234 1 

s 1 1235 1 

ws, 1s 6 1 

7 icon | T 

5 1 1238 1 

> 3 \s 9 1 

.°y 1240 1 

= 1241 1 

a 4 12 § 1 

. 3 12 1 

—s 1244 1 

; : \s 2 : LUB$V_OPENED This unit has already been opened by 
oe 1247 1 

$ \ 1g : : IMPLICIT OUTPUTS: 

: 12 9 LUBSL_LOG_RECNO set to 1. 

Zo 12 ¢ 1 ROUTINE VALUE: 

a9 12 1 

. 5 1254 1 An IOSTAT value. 

a. % 1255 1 

: : \ § : SIDE EFFECTS: 

.° 9 1258 1 SIGNAL_STOPs FORS_REWERR if a non-EOF error is returned from 
.. 7 1259 1 the RMS rewind call. 

; 7 1260 1 

_ 1261 1 - 

eS 1506 1 

= 1263 2 BEGIN 

eT 1264 

, 1265 GLOBAL REGISTER 

+ \§ § CCB = 11: REF BLOCKC, BYTE); 

re 126 

, 6 1568 

, Y 1269 STATUS, ! Return status from SREWIND 
2 ie § L_UNWIND_ACTION: VOLATILE, ' Unwind action code (FORSK_'INWIND{POP or NOP}) 
3 : 1s? LTERR_EQC_PRES: VOLATILE; ' 1 if ERR= present 

» = 1378 BUILTIN 

s 166 1274 ACTUALCOUNT; 

3; 167 1275 

: 168 1 16 ENABLE 

> 169 127 FORSSIOSTAT_HND (L_UNWIND_ACTION, L_ERR_EQL_PRES); 

: 170 1378 ' pass Info to error handler 


Bae eee SS aa Pee 13 

FORSREWIND 1he$e -1984 44:0 AX-11 Bliss-32 V4.0-74 
1-00 12-808-13Be 90:45:03 FORRTL.SRCJFORREWIND.B52;1 
4 

Determine if ERR= is present. 


IF ACTUALCOUNT () GTR 1 
L_ERR_EQL_PRES = .ERR_EQL 


ELS 
L_ERR_EQL_PRES = 0; 


COONAN OS 


WR" ODOONOUS Wr 


+ 
: Set up error handler conditions in case CB_PUSH bombs 


L_UNWIND_ACTION = FORSK_UNWINDNOP; 


1+ 

! Get a LUB for this logical unit. 

On return, CCB points to the current control block. 
FORSSCB_PIISH (.UNIT, LUBSK_LUN_MIN); 


1+ 
Unwind action (if an error occurs) is now to pop a LUB. 


s WO 000 OWOWCOCOCDOD CD CDCD0D 


oovono 
DOONAN AR" OOONAUE WO 


L_UNWIND_ACTION = FORSK_UNWINDPOP; 


1+ 
' Check the LUB. If file is not open, then this is a no-op. 
Else must be sequential organization and access. 


REVLSSSLESRANSLESSELES. 


ri CLUBSV_OPENEDJ 
ca -CCB CLUBSV_DIRECT] AND NOT .CCB CLUBSV_NOTSEQORG) 
BEGIN 


DED IRDERDERDIRDIDIDA a tt sk kk i kd dh ad od od ot td 


oooo 


+ 
' Call RMS to REWIND the file, all failure codes returned 
cause a SIGNAL_STOP to occur, except for IOP, EOF or BOF. 


IF NOT (STATUS = SREWIND (RAB = .CCB)) 
THEN 


BEGIN 

IF .STATUS NEQ RMS$_IOP AND 
“STATUS NEQ RMS$-EOF AND 

men ates NEQ RMS$_BOF 


BEGIN 
FORSSSIGNAL_STO (FORSK_REWERR) ; 
RETURN 0; 


END; 
END; 
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14 
Clear APPEND flag - OK for backspace now 


CCBCLUBSV_APPEND] = 0; 


4 
Set the logical record number to 1. 


WAWNNWNNAwwrn 


El te ek lek ek ta ek ee en nn) 


CCBCLUBSL_LOG_RECNO) = 
END 


BEGIN 
FORSSSIGNAL_STO (FORSK_REWERR); 
AN 0; 


14 
Return the file system to its former state. 


FORSS$CB_POP (); 
RETURN O; ' Success IOSTAT value 
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FORSREWIND 

\1-007\ 

FORSSIOSTAT_HND 
FORSS$SIGNAL~ STO 

FORSSCB SPUSAS FORS$CB_POP 
SYSSREWIND 


_FORSCODE,NOWRT, SHR, PIC,2 
FORSREWIND, Save R2.R11 


L_ERR_EQL_PRES 
te gCrP) _ACTION 


(ab), 
RR _EQL, L_ERR_EQL_PRES 


L_ERR_EQL_PRES 
no” L-UNWIND_ACTION 


UNI 
UN egcRe PUSH 
L_UNWINB_ACTION 
“BCC ) 
, ~4(€CB) 
* rgsteees.” 
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FORSREWIND 16-Sep-1984 4:9 AX-11 Bliss-32 V4.0 
1-007 1 =300n 138% 99: $3: 93 FORRTL.SRC FORREWIND . +} 2;1 
5B DD D PUSHL (CCB 
000000006 00 1 Fe ° Hi CALLS #i SYSSREWIND 
1B £ 4g BLBS = STATUS, 
00018574 += 8F ; | . irae _ TUS, #99700 
0001827A 3F 23 o 35 bor TATUS, #98938 
00018198 8F 4 D1 036 CMPL STATUS, #98712 
A 12 Bee BNEQ 4 
FD AB QO BA bea 3$: BICB2 aye. (CCB) 
EO AB 1 oO MOVL “aS (CCB) 
B 11 8 C BRB 55" 
4 0D 4$: PUSHL #20 
000000006 00 1 FB 000 CALLS #1, FORSSSIGNAL_STO 
6 11 0007 BRB 6$ 
000000006 00 16 00079 5$: JSB SOROOCE POP 
0 D4 QOO7F 6$: CLRL R 
04 00081 RET 
0000 00082 7$: «WORD Save nothing 
50 08 AC DO 00084 MOVL B(AP), RO 
50 04 AO 00 00088 MOVL 4(RO), Bag 
F8 AO 9F 0008C PUSHAB L_ERR_E RES 
FC AO 9F QOO8F PUSHAB L -ENUTADS LRCTION 
02 dD 00092 PUSHL #2 
5E 0D 00094 PUSHL SP 
7E 04 AC 7D 00096 MOVQ 4(AP), =(SP) 
00000000G 00 03 FB O0009A CALLS #3, FORSSIOSTAT_HND 
04 000A1 RET 
; Routine Size: 162 bytes, Routine Base: _FORSCODE + 0000 
3; 236 1364 1 
: 257 1365 1 END ‘End of module 
; 258 1366 0 ELUDOM 
: PSECT SUMMARY 
; Name Bytes Attributes 
: _FORSCODE 162 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
: Library Statistics 
: eer Rl Sah Se ieee, *) SOR 4: Symbols ee Pages Processing 
: File Total Loaded Percent Mapped Time 
$ _$255$DUA28:CSYSLIBISTARLET.L32;1 9776 7 0 581 00:01.3 


Be S. Be Se Be Se Se Ge Se Fe Ge Se Be Se Be Ge Fe Ge Se Se Ge Ge Fe Fe Ge Ge Ge Se 
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; COMMAND QUALIFIERS 
PLESS/CHECK = CF FELD, INITIAL OPT IRIZE) /NOTRACE/L ISe1 18S: FORREWUING/08J208J5 :F ORREWING MSRC$:FORREWIND/UPDATE=(ENHS$:F ORREWIND 


Size: 162 og 


e 
Run 711 
Sleseed Time: 00: 33 
Lines/CPU Min: | 
Cee A le 40300 

se | Used: 146 pages 
Compilation Complete 


0 data bytes 
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